home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac100% 1999 April
/
MAC100-1999-04.ISO.7z
/
MAC100-1999-04.ISO
/
オンラインソフト定点観測
/
Text
/
FireWrite.sit
/
FireWrite v1.04 [Fixed]
/
おまけフォルダ
/
CreatorType Changer v1.12
/
Script.txt
< prev
next >
Wrap
Text File
|
1999-01-01
|
2KB
|
41 lines
--スクリプト言語を「AppleScript 英語」にすると快適です(僕の環境では)。
--このTEXT-ttroは丸 雅宏( mmaru@geocities.co.jp )に著作権があります。
--スクリプトは一部分なら真似しても構いません。真似する人がいるかどうかは別として。
--このスクリプトの使用には、システムは漢字Talk 7.5以上で、AppleScriptが使える環境でないと使えません。
--(漢字Talk 7.1.2でも、AppleScriptは使えるようですが、CreatorType Changerは動きません)
on open objectList
set creatorType to "ttxt"
tell application "Finder"
repeat with repeatList in objectList
if file (repeatList as string) exists then
try
if file type of repeatList = "ttro" or file type of repeatList = "TEXT" then
repeat
--ボタン「キャンセル」は、AppleScriptの仕様上、スクリプトが終了する。
display dialog "ファイル「" & name of repeatList & "」のクリエータタイプを決めてください。" buttons {"参照", "キャンセル", "OK"} ツ
default button "OK" default answer creatorType
if button returned of the result is "参照" then
choose file with prompt "クリエータファイルを参照するアプリケーション:" of type {"APPL"}
set creatorType to creator type of file (the result as string)
else if button returned of the result is "OK" then
set creatorType to (text returned of the result)
exit repeat
end if
end repeat
set creator type of repeatList to creatorType
else
display dialog name of repeatList & "はファイルタイプがTEXTまたはttroではありません。" buttons "OK" default button "OK" with icon 2
end if
on error errorText number errorNumber
if errorNumber ュ -128 then --[-128]のエラーコードはユーザーが「キャンセル」ボタンを押したときである。
display dialog "エラーが起きました。[" & errorText & "] (" & errorNumber & ")" buttons "OK" default button "OK" with icon 2
end if
end try
else
display dialog name of repeatList & "はフォルダのためクリエータタイプを変更することはできません。" buttons "OK" default button "OK" with icon 2
end if
end repeat
end tell
end open